home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / STAR ATTACK BASIC.int < prev    next >
Text File  |  2023-02-26  |  4KB  |  101 lines
  1. 1 REM  ***********************
  2. 2 REM  ** STAR ATTACK BASIC **
  3. 3 REM  ** MICRO-SPARC       **
  4. 4 REM  ** P.O. BOX 325      **
  5. 5 REM  ** LINCOLN MASS 01773**
  6. 6 REM  ** COPYRIGHT C 1979  **
  7. 7 REM  ***********************
  8. 8 REM 
  9. 9 PRINT ""
  10. 10 REM  USE LOMEM:4096 AND HIMEM:8192
  11. 15 GOSUB 2000: POKE 17227,0
  12. 16  POKE 17226,0
  13. 17 TEXT 
  14. 20 CALL 17434
  15. 21 GOSUB 2050:GOTO 26
  16. 24 CALL 17563
  17. 26 X= PEEK (17226):IF X>0 THEN GOSUB X*100
  18. 31 X= PEEK (17227):IF S<>T THEN GOSUB 800:T=S
  19. 40 N=N-1:VTAB 21:TAB 16:PRINT N
  20. 45 IF N=1000 OR N=100 THEN GOSUB 5000
  21. 50 IF S>100 OR N=0 THEN 3000
  22. 55 GOTO 24
  23. 100  POKE 17226,0:VTAB 23:TAB 10:PRINT A$;:TAB 37:PRINT "+50":X=0
  24. 105 SC=SC+50:VTAB 22:TAB 36:CALL -868:PRINT SC:A=A+1:RETURN 
  25. 200  POKE 17226,0:VTAB 23:TAB 10:PRINT B$;:TAB 37:PRINT "+40":X=0
  26. 205 SC=SC+40:VTAB 22:TAB 36:CALL -868:PRINT SC:B=B+1:RETURN 
  27. 300  POKE 17226,0:VTAB 23:TAB 10:PRINT C$;:TAB 37:PRINT "-50":X=0
  28. 305 SC=SC-50:VTAB 22:TAB 36:CALL -868:PRINT SC:C=C+1:RETURN 
  29. 400  POKE 17226,0:VTAB 23:TAB 10:PRINT D$;:TAB 37:PRINT "+30":X=0
  30. 405 SC=SC+30:VTAB 22:TAB 36:CALL -868:PRINT SC:D=D+1:RETURN 
  31. 500  POKE 17226,0:VTAB 23:TAB 10:PRINT E$;:TAB 37:PRINT "+20":X=0
  32. 505 SC=SC+20:VTAB 22:TAB 36:CALL -868:PRINT SC:E=E+1:RETURN 
  33. 600  POKE 17226,0:VTAB 23:TAB 10:PRINT F$;:TAB 37:PRINT "-40":X=0
  34. 605 SC=SC-40:VTAB 22:TAB 36:CALL -868:PRINT SC:F=F+1:RETURN 
  35. 700  POKE 17226,0:VTAB 23:TAB 10:PRINT G$;:TAB 37:PRINT "-20":X=0
  36. 705 SC=SC-20:VTAB 22:TAB 36:CALL -868:PRINT SC:G=G+1:RETURN 
  37. 800 VTAB 21:TAB 32:CALL -868:PRINT S:RETURN 
  38. 1000 END 
  39. 2000 DIM A$(20),B$(20),C$(20),D$(20),E$(20),F$(20),G$(20),X$(2),M$(40),BB$(4)
  40. 2005 BB$="    ":A$=" TIE FIGHTER    ":B$=" KLINGON CRUISER":C$=" HOSPITAL SHIP  "
  41. 2010 D$=" KLINGON FIGHTER":E$=" TIE SUPPLY SHIP":F$=" TWA FREIGHTER  "
  42. 2015 G$=" COMM SATELLITE ":CALL -936:N=4000:RETURN 
  43. 2050 VTAB 21:PRINT "TIME LEFT..";:TAB 26:PRINT "SHOTS USED.."
  44. 2055 PRINT "PREV HIGH SCORE=";HS;:TAB 26:PRINT "SCORE="
  45. 2065 VTAB 23:PRINT "LAST HIT=";:TAB 27:PRINT "SCORING.."
  46. 2070  POKE 812,255
  47. 2072 FOR I=1 TO 100:XX= RND (250):YY= RND (120)
  48. 2074  POKE 800,XX: POKE 802,YY:CALL 3780:NEXT I
  49. 2078  POKE 800,0: POKE 802,0:CALL 3780
  50. 2080  POKE 800,255: POKE 802,0:CALL 3786
  51. 2082  POKE 800,255: POKE 802,159:CALL 3786
  52. 2084  POKE 800,0: POKE 802,159:CALL 3786
  53. 2086  POKE 800,0: POKE 802,0:CALL 3786
  54. 2088  POKE 800,0: POKE 802,130:CALL 3780
  55. 2090  POKE 800,124: POKE 802,154:CALL 3786
  56. 2092  POKE 800,136: POKE 802,154:CALL 3786
  57. 2094  POKE 800,255: POKE 802,130:CALL 3786
  58. 2096  POKE 800,0: POKE 802,140:CALL 3780
  59. 2098  POKE 800,124: POKE 802,156:CALL 3786
  60. 2100  POKE 800,136: POKE 802,156:CALL 3786
  61. 2102  POKE 800,255: POKE 802,140:CALL 3786
  62. 2200 RETURN 
  63. 3000 TEXT :CALL -936
  64. 3005 IF SC>HS THEN GOSUB 3500:GOSUB 4000
  65. 3008 VTAB 21:INPUT "ANOTHER MISSION? HIT RETURN",X$:GOSUB 2015
  66. 3015 SC=0: POKE 17227,0:REM  RESET SCORE AND # OF SHOTS
  67. 3020 A=0:B=0:C=0:D=0:E=0:F=0:G=0:GOTO 20
  68. 3500 PRINT "YOUR SCORE OF ";SC;" HAS BEATEN THE":PRINT "PREVIOUS HIGH SCORE OF..";HS
  69. 3505 PRINT "CONGRATULATIONS!"
  70. 3510 HS=SC:RETURN 
  71. 4000 VTAB 6:TAB 5:PRINT "YOU SHOT DOWN....."
  72. 4005 VTAB 7:TAB 16:PRINT A;"..";A$
  73. 4006 VTAB 8:TAB 16:PRINT B;"..";B$
  74. 4008 VTAB 9:TAB 16:PRINT C;"..";C$
  75. 4010 VTAB 10:TAB 16:PRINT D;"..";D$
  76. 4012 VTAB 11:TAB 16:PRINT E;"..";E$
  77. 4014 VTAB 12:TAB 16:PRINT F;"..";F$
  78. 4016 VTAB 13:TAB 16:PRINT G;"..";G$
  79. 4020 IF SC<100 THEN 4100:IF SC<200 THEN 4120:IF SC<300 THEN 4130:IF SC<500 THEN 4140
  80. 4030 IF SC<650 THEN 4150:IF SC<750 THEN 4160:IF SC<850 THEN 4170:IF SC<1000 THEN 4180
  81. 4040 GOTO 4190
  82. 4100 M$="LOUSY":GOTO 4500
  83. 4120 M$="POOR":GOTO 4500
  84. 4130 M$="FAIR":GOTO 4500
  85. 4140 M$="NOT BAD..APPRENTICE RATING"
  86. 4142 GOTO 4500
  87. 4150 M$="GOOD..PROMOTED TO EXEC OFFICER."
  88. 4152 GOTO 4500
  89. 4160 M$="VERY GOOD..PROMOTED TO FIRST OFFICER"
  90. 4162 GOTO 4500
  91. 4170 M$="EXCELLENT! PROMOTED TO CAPTAIN!"
  92. 4172 GOTO 4500
  93. 4180 M$="OUTSTANDING! PROMOTED TO REAR ADMIRAL"
  94. 4182 GOTO 4500
  95. 4190 M$="SPECTACULAR! PROMOTED TO FLEET ADMIRAL"
  96. 4192 GOTO 4500
  97. 4500 VTAB 18:PRINT "YOUR SCORE OF..";SC;" WAS R<CTRL-A>ATED:"
  98. 4505 VTAB 19:TAB 4:PRINT M$:RETURN 
  99. 5000 VTAB 21:TAB 16:PRINT BB$
  100. 5005 RETURN 
  101.